0 REM *** PHARAOS GRAVE V.2 ***
1 REM      BY W.RAUSCH
2 REM      MOERIKEWEG 73
3 REM      8504 STEIN
5 A1$=""
6 A2$=""
7 A3$=""
8 A4$=""
9 PRINT"[147]":V=53248:SI=54272:POKEV+21,0:POKE657,128
10 FORI=832TO865:READA:POKEI,A:NEXT
11 DATA120,169,51,133,1,169,0,133,95
12 DATA133,90,133,88,169,208,133,96,169,240,133,89,169,224,133,91,32,191,163
13 DATA169,55,133,1,88,96
15 SYS832:POKE850,160:SYS832:POKE56576,PEEK(56576)AND252:POKE53272,8
16 POKE648,192
20 GOTO10000
22 PRINT"[147]SCRATCH GRAB":OPEN1,8,15,"S:GRAB":CLOSE1
24 SAVE"GRAB",8:VERIFY"GRAB",8:LIST22-24
30 DIM PN(58,6),IT$(54),IN(46,3),CO$(18)
40 FORI=1TO18:READCO$(I):NEXT
50 FORI=1TO54:READIT$(I):NEXT
55 RETURN
60 FORI=866TO895:READA:POKEI,A:NEXT:IFKK=1THENRETURN
65 FORI=1TO58
70 READPN(I,1),PN(I,2),PN(I,3),PN(I,4),PN(I,5),PN(I,6)
80 NEXT
90 FORI=1TO46
100 READIN(I,1),IN(I,2),IN(I,3)
110 NEXT
130 RETURN
150 AP=1
155 POKE53280,11:POKE53281,0
160 PRINT"[147]":POKEV+21,0:POKEV+17,PEEK(V+17)AND239:GOSUB19000
164 POKE214,15:SYS58640:PRINT"[179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179][179]"
165 POKEV+17,PEEK(V+17)OR16
170 PRINT"[145]MOEGLICHE RICHTUNGEN :";
174 FORI=1TO6
175 IFPN(AP,I)>0THENONIGOSUB179,180,181,182,184,185
176 NEXT:GOTO210
179 PRINT" W";:RETURN
180 PRINT" O";:RETURN
181 PRINT" N";:RETURN
182 PRINT" S";:RETURN
184 PRINT" H";:RETURN
185 PRINT" R":RETURN
210 PRINTA1$"BESONDERHEITEN: ";:N=0
220 FORI=1TO46
222 IFN>0ANDIN(I,1)=APANDIN(I,3)=1THENPRINT""IT$(I)
230 IFIN(I,1)=APANDN=0ANDIN(I,3)=1THENPRINTIT$(I):N=1
240 NEXT
242 IFAP=35ANDX8=1THEN50100
245 IFAP=16ANDIN(14,1)=-1ANDIN(15,1)>0THEN50800
246 IFAP=53ANDIN(45,1)=-1THEN50720
247 IFAP=50ANDIN(46,1)<>-1THEN50207
250 PRINTA3$:INPUT"KOMMANDO ";B$
260 FORI=1TO18
270 IFLEFT$(B$,4)=LEFT$(CO$(I),4)THEN300
280 NEXT
300 IFAP=41ANDIN(41,1)<>-1ORAP=42ANDIN(41,1)<>-1THENGOSUB52000
310 IFC=3THEN50208
410 IFAP=24THENGOTO50204
500 IFI<>1THEN730
510 GOSUB5540
530 GOTO550
540 GOTO5530
550 IFAP=2ORAP=3THENX1=X1+1
560 IFX1=2THENGOTO50190
570 IFAP=10ANDIN(6,1)=-1THEN5530
590 IFAP=19ANDA$="R"ANDIN(9,1)<>19THENGOTO50203
610 IFAP=31ANDA$="S"THENGOTO50202
620 IFAP=48ANDA$="S"ORAP=44ANDA$="W"THEN50206
630 IFAP=35ANDIN(14,1)<>APTHEN50100
640 IFAP=37ANDA$="O"ANDIN(30,1)=37THENAP=41:GOTO5500
645 IFAP=37ANDIN(30,1)<>37ANDA$="O"THEN50200
650 IFAP=50ANDA$="W"ANDIN(31,1)<>0THEN5530
655 IFAP=38ANDA$="N"ANDIN(28,1)=0ANDIN(46,1)<>-1THEN50207
660 IFA$="W"ANDPN(AP,1)<>0THENAP=PN(AP,1):GOTO5500
670 IFA$="O"ANDPN(AP,2)<>0THENAP=PN(AP,2):GOTO5500
680 IFA$="N"ANDPN(AP,3)<>0THENAP=PN(AP,3):GOTO5500
690 IFA$="S"ANDPN(AP,4)<>0THENAP=PN(AP,4):GOTO5500
700 IFA$="H"ANDPN(AP,5)<>0THENAP=PN(AP,5):GOTO5500
710 IFA$="R"ANDPN(AP,6)<>0THENAP=PN(AP,6):GOTO5500
720 GOTO5530
730 IFI<>2THEN830
735 IFIN(1,1)<>-1THEN5530
739 X2=X2+1:IFX2>5THEN5475
740 GOSUB5540
770 IFAP=7ANDIN(3,1)=0ANDIN(4,1)=APANDA$="EINGA"THENIN(4,1)=0:GOTO5410
780 IFAP=13ANDA$="TUER"THENGOTO50211
790 IFAP=13ANDA$="WAND"ANDIN(11,1)=0THENIN(11,1)=13:GOTO5420
800 IFAP=21ANDIN(16,1)>0ANDA$=IT$(16)THENIN(16,1)=0:GOTO5500
810 IFAP=54ANDIN(40,1)>0ANDA$="AUSGA"THENGOTO49000
820 GOTO5530
830 IFI<>3THEN940
840 GOSUB5540:GOSUB5000
850 IFX<>32ANDX<>40ANDX<>38THENGOTO5530
860 IFX<>32THEN920
870 IFAP=15THENPN(15,3)=16:IN(13,1)=0:GOTO5500
875 IFAP=13THEN50211
880 IFAP=21ANDIN(16,1)=0THENPN(21,3)=22:IN(17,1)=0:GOTO5500
881 IFAP=25ANDIN(43,1)=25THENIN(43,1)=0:PN(25,4)=19:IN(42,1)=0:PN(19,3)=25:GOTO5500
882 IFAP=31ANDX5=1ANDIN(23,1)=APTHENIN(23,1)=0:PN(31,3)=32:GOTO5500
890 IFAP=21ANDIN(16,1)>0THEN50213
895 IFX5=1ANDAP=31THENPN(AP,3)=32:IN(31,1)=0:GOTO5500
900 IFAP=45THENPN(45,3)=50:IN(28,1)=0:GOTO5500
905 IFAP=42THENPN(42,3)=40:IN(26,1)=0:GOTO5500
906 IFAP=47ANDPN(AP,3)=0THENPN(AP,3)=52:IN(36,1)=0:GOTO5500
910 IFAP=38THENPN(38,3)=50:IN(28,1)=0:GOTO5500
920 IFAP=50THENPN(50,1)=44:IN(31,1)=0:GOTO5500
925 IFAP=53ANDY3=0ANDX=38THENY3=1:GOTO50700
926 IFAP=57ANDX=40ANDY4=0ANDIN(44,1)=-1THENIN(41,1)=AP:Y4=1:GOTO5458
930 GOTO5530
940 IFI<>4THEN1130
950 GOSUB5540
955 IFAP<8ORA$<>IT$(53)THENGOTO5530
960 PRINTA2$:INPUT"WELCHE: W O N S   ";C$
970 IFAP=13ANDIN(11,1)=0ANDC$="O"THENGOTO5430
980 IFAP<>13ORAP=13ANDC$<>"O"THEN1100
1000 GOTO5530
1100 PRINTA3$"NICHTS PASSIERT       ":GOSUB5800:GOSUB5900:GOTO164
1130 IFI<>5THEN1180
1140 GOSUB5540
1150 GOSUB5000
1160 IFAP=5ANDX=2ANDIN(X,1)>0THENIN(2,1)=0:IN(X,2)=0:GOTO5400
1170 GOTO5530
1180 IFI<>6THEN1220
1182 IFIN(1,1)<>-1THEN5530
1183 X2=X2+1:IFX2>5THEN5475
1185 GOSUB5540:GOSUB5000
1200 IFAP=7ANDX<>4ANDIN(X,1)=APANDIN(X,1)>0THENIN(X,1)=0:IN(4,3)=1:GOTO5500
1210 GOTO5530
1220 IFI<>7THEN1270
1230 GOSUB5540:GOSUB5000
1240 IFX<>15ANDX<>5THEN5530
1250 IFAP=16ANDIN(X,1)=APTHENIN(X,1)=0:GOTO5500
1255 IFAP=35ANDX=5THEN50100
1260 GOTO5530
1270 IFI<>8THEN1320
1280 GOSUB5540
1285 IFAP=7ANDIN(4,1)=0ANDA$=LEFT$(IT$(11),5)THENAP=8:GOTO5500
1290 IFAP=13ANDA$=LEFT$(IT$(51),5)ANDIN(11,1)=APTHENAP=14:GOTO5500
1300 IFAP=14ANDA$=LEFT$(IT$(51),5)THENAP=13:GOTO5500
1310 GOTO5530
1320 IFI<>9THEN1360
1330 GOSUB5540:GOSUB5000
1335 IFX<>9ANDIN(X,1)<>-1THEN5530
1340 IFAP=51ANDPN(AP,5)=0THENPN(AP,5)=54:IN(X,1)=AP:GOTO5440
1345 IFAP=37THENIN(X,1)=0:GOTO5470
1350 GOTO5530
1360 IFI<>10THEN1410
1370 GOSUB5540
1375 IFAP=27THEN1395
1376 GOSUB5000
1390 IFAP=40ANDY2=0ANDIN(X,1)=APTHENY2=1:IN(35,1)=AP:PN(40,3)=47:GOTO5450
1395 IFAP=27ANDA$="GRABR"ANDIN(46,3)=0THENIN(46,3)=1:GOTO5480
1400 GOTO5530
1410 IFI<>11THEN1460
1420 GOSUB5540:GOSUB5000
1430 IFAP=10ANDX=7ANDIN(6,1)=-1THEN50206
1440 IFAP=52ANDX=37ANDIN(34,1)=APTHENPN(52,3)=53:IN(34,1)=0:GOTO1680
1450 GOTO5530
1460 IFI<>12THEN1510
1470 GOSUB5540
1490 IFX4=1THENAP=54:GOTO5500
1500 GOTO5530
1510 IFI<>13THEN1580
1520 GOSUB5540
1525 IFGE>=3THEN5460
1530 GOSUB5000
1535 IFAP=16ANDX=14THENIN(X,1)=-1:IN(15,3)=1:GOTO5500
1536 IFAP=10ANDX=6THENIN(7,3)=1
1540 IFIN(X,1)=APANDIN(X,2)>0THENIN(X,1)=-1:GOTO5500
1550 IFIN(X,2)=0THEN5530
1560 IFIN(X,1)<>APTHENPRINTA3$"NICHT VORHANDEN":GOSUB5800:GOSUB5900:GOTO164
1570 GOTO5530
1580 IFI<>14THEN1640
1590 GOSUB5540
1600 GOSUB5000
1610 IFIN(X,1)<>-1THENPRINTA3$"ICH HABE DAS NICHT":GOSUB5800:GOSUB5900:GOTO164
1612 IFAP=19ANDA$="SEIL"ANDIN(9,1)=-1THENGOSUB5455:GOTO1620
1615 IFAP=31ANDA$="DIAMA"ANDIN(X,1)=-1THENX5=1:GOSUB5465:IN(20,2)=0:IN(20,3)=0:GOTO1620
1620 IN(X,1)=AP:GOTO5500
1640 IFI<>15THEN1700
1650 GOSUB5540:GOSUB5000
1655 IFX<>7THEN5530
1660 IFAP=10ANDIN(6,1)=-1ANDX9=0THENPN(AP,1)=11:IN(8,1)=0:X9=1:GOTO1680
1670 GOTO5530
1680 PRINTA3$"DIE "IT$(32)" OEFFNET SICH":GOSUB5800:GOTO160
1700 IFI<>16THEN1750
1710 GOTO30000
1750 IFI<>17THEN1800
1755 GOTO34000
1800 IFI<>18THEN1900
1810 POKEV+21,0:PRINTCHR$(14),"[147][211]IE WOLLEN AUFGEBEN ([202]/[206]) ?"
1820 GETA$:IFA$="J"THENSYS64738
1830 IFA$="N"THENPRINTCHR$(142):GOSUB5600:GOTO160
1840 IFA$=""ORA$=" "THEN1820
1900 PRINTA4$"UNBEKANNTES WORT":GOSUB5800
1910 PRINTA3$"                 ":PRINTA4$"                        ":GOTO164
5000 FORX=1TO46
5010 IFLEFT$(A$,5)=LEFT$(IT$(X),5)THENRETURN
5020 NEXT
5030 PRINTA4$;TAB(20)"[159]UNBEKANNTES WORT":FORT=1TO1000:NEXT
5035 GOSUB5900
5040 X=0:GOTO164
5400 PRINTA3$"GEHE IN RICHTUNG DES "IT$(50)"":GOSUB5800
5401 PN(5,2)=6:GOTO160
5410 PRINTA3$"DURCHGANG IN DER MAUER":IN(4,1)=0:X6=1:GOSUB5800:GOTO5500
5420 PRINTA3$"EIN "IT$(51)" WIRD SICHTBAR":GOSUB5800:GOTO160
5430 PRINTA3$"ES KLINGT HOHL           ":GOSUB5800:GOTO160
5440 PRINTA3$""IT$(9)" HAT SICH OBEN VERFANGEN":X4=1:GOSUB5800:GOTO160
5450 PRINTA3$"EIN "IT$(11)" WIRD SICHTBAR":GOSUB5800:GOTO160
5455 PRINTA3$""IT$(9)" HAENGT HINUNTER":GOSUB5800:RETURN
5458 PRINTA3$"ER ENTHAELT EIM "IT$(41)"[148]":GOSUB5800:GOTO160
5460 PRINTA3$"SIE KOENNEN NICHT SO VIEL TRAGEN":GOSUB5800:GOTO160
5465 PRINTA3$""IT$(20)" IST DAS FEHLENDE "IT$(52)" DER "IT$(6)"":GOSUB5800:RETURN
5470 PRINTA3$""IT$(9)" IST HINUNTERGEFALLEN":GOSUB5800:GOTO160
5475 PRINTA3$""RIGHT$(IT$(1),5)" IST JETZT STUMPF":GOSUB5800:GOSUB5900:GOTO164
5480 PRINTA3$"ER TRUG EINE "IT$(46)" BEI SICH":GOSUB5800:GOTO160
5500 GOSUB5900
5510 PRINTA4$"[159]IN ORDNUNG":FORT=1TO1000:NEXT:IFI=13THENGE=GE+1
5520 IFI=14THENGE=GE-1
5525 GOSUB5600:GOTO160
5530 GOSUB5900
5535 PRINTA4$"[159]NICHT MOEGLICH":FORT=1TO1000:NEXT:PRINTA4$"               ":GOTO164
5540 PRINTA4$;TAB(25):INPUTA$:A$=LEFT$(A$,5):RETURN
5600 POKEV+21,0:POKEV+28,0:POKEV+23,0:POKEV+29,0:RETURN
5800 FORT=1TO3000:NEXT:RETURN
5900 PRINTA3$"                                       "
5910 PRINTA4$"                                      ":RETURN
10000 AD=57344
10010 READX:IFX=-1THENGOTO45000
10020 CG=AD+X*8:FORI=0TO7:READQ:POKECG+I,Q:NEXT:GOTO10010
10110 DATA28,252,243,207,63,255,255,255,255
10120 DATA30,255,255,255,255,252,243,207,63
10130 DATA31,255,255,255,255,255,255,15,240
10140 DATA33,255,255,255,255,15,240,255,255
10150 DATA35,255,255,15,240,254,254,254,254
10160 DATA36,0,31,227,252,254,254,254,254
10170 DATA37,255,255,255,255,63,207,243,252
10180 DATA38,63,207,243,252,255,255,255,255
10190 DATA39,0,248,199,63,127,127,127,127
10200 DATA40,255,255,240,15,255,255,255,255
10210 DATA41,255,255,255,255,240,14,254,254
10220 DATA42,255,255,255,255,255,255,240,15
10230 DATA43,254,253,251,247,239,223,191,127
10240 DATA44,254,254,254,254,254,254,254,254
10250 DATA45,127,127,127,127,127,127,127,127
10260 DATA46,255,255,255,255,255,255,255,255
10270 DATA47,0,255,255,255,255,255,255,255
10280 DATA48,0,254,254,254,254,254,254,254
10290 DATA49,0,127,127,127,127,127,127,127
10300 DATA50,127,191,223,239,247,251,253,254
10400 DATA51,239,239,239,239,239,223,191,127
10410 DATA52,224,239,239,239,239,239,239,239
10420 DATA53,239,239,239,143,47,239,239,239
10430 DATA54,0,239,239,239,239,239,239,239
10440 DATA55,254,254,254,254,254,224,235,239
10450 DATA56,255,255,255,255,255,255,95,241
10460 DATA57,254,254,254,254,0,254,254,254
10470 DATA27,239,239,239,239,239,239,239,224
10480 DATA59,239,239,239,239,247,251,253,254
10490 DATA60,239,239,239,239,239,239,239,15
10500 DATA61,239,239,227,233,236,239,239,239
10510 DATA62,239,239,239,239,15,239,239,239
10520 DATA29,15,239,239,239,239,239,239,239
10530 DATA64,127,127,127,127,0,127,127,127
10540 DATA65,255,255,255,255,255,15,239,239
10550 DATA67,0,255,255,0,0,0,0,0
10560 DATA68,239,239,239,239,239,239,239,239
10570 DATA69,254,254,254,254,254,254,240,15
10580 DATA70,239,239,239,239,240,239,239,239
10590 DATA71,254,254,254,254,254,254,254,0
10600 DATA72,127,127,127,127,127,127,127,0
10610 DATA73,15,240,255,255,255,255,255,255
10620 DATA74,240,15,255,255,255,255,255,255
10630 DATA75,255,170,255,170,255,170,255,170
10640 DATA76,85,85,85,85,85,87,95,255
10650 DATA77,85,85,85,87,127,255,255,255
10660 DATA78,85,85,85,85,245,255,255,255
10670 DATA79,85,85,85,85,85,245,255,255
10680 DATA80,85,85,85,85,85,85,245,255
10685 DATA81,63,207,243,252,254,254,254,254
10690 DATA82,254,254,254,254,15,240,255,255
10695 DATA83,127,255,15,240,255,255,255,255
10700 DATA84,252,242,206,62,254,254,254,254
10705 DATA85,254,254,254,254,252,243,207,63
10710 DATA86,255,255,255,255,252,242,206,62
10715 DATA87,255,255,255,255,240,14,254,254
10720 DATA88,254,254,254,254,254,254,240,15
10725 DATA89,254,254,240,15,255,255,255,255
10730 DATA90,126,190,222,238,246,250,252,254
10735 DATA91,127,127,127,127,63,207,243,252
10740 DATA92,14,240,255,255,255,255,255,255
10745 DATA93,96,99,105,108,110,110,110,110
10750 DATA94,6,198,150,54,118,118,118,118
10755 DATA95,110,110,110,110,110,110,110,110
10760 DATA97,118,118,118,118,118,118,118,118
10765 DATA98,110,110,110,110,108,105,99,15
10770 DATA99,118,118,118,118,54,150,198,240
10775 DATA100,0,0,0,0,0,15,63,127
10780 DATA101,15,31,63,127,255,255,255,255
10785 DATA102,240,248,252,254,255,255,255,255
10790 DATA103,0,0,0,0,0,240,252,254
10795 DATA104,168,168,168,168,168,168,0,0
10800 DATA105,170,170,170,170,170,170,0,0
10805 DATA106,168,168,168,168,168,168,168,168
10810 DATA107,162,162,162,162,162,162,162,162
10815 DATA108,0,0,168,168,168,168,168,168
10820 DATA109,170,170,170,170,170,170,170,170
10825 DATA110,0,0,170,170,170,170,170,170
10830 DATA111,0,0,129,195,255,255,255,255
10835 DATA112,255,255,248,6,184,191,255,255
10840 DATA113,0,0,1,3,15,255,255,255
10845 DATA114,0,0,128,192,224,255,255,255
10850 DATA115,0,0,0,255,255,0,0,0
10855 DATA116,193,182,182,128,193,227,193,193
10860 DATA117,129,129,129,129,255,255,255,255
10865 DATA118,255,219,129,195,195,129,219,255
10900 DATA-1
12000 FORI=0TO62:READQ:POKE50816+I,Q:NEXT
12001 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
12002 DATA0,0,64,0,0,128,0,1,0,0,3,255,248,4,0,0,8,0,0,8,0,0,8,0,0,0,0,0
12004 FORI=0TO62:READQ:POKE50880+I,Q:NEXT
12005 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32,0,0,120,0,0,254,0,1,255,128
12006 DATA3,255,224,7,255,248,15,255,254,31,255,252,63,255,248,127,255,240,0,0
12007 DATA0,0,0,0,0,0,0,0,0,0,0,0,0
12010 FORI=0TO62:READQ:POKE50944+I,Q:NEXT
12011 DATA0,0,64,0,64,128,2,33,0,1,36,128,0,200,76,17,8,80,18,69,32,34,38,64,36
12012 DATA100,48,20,162,64,8,164,128,4,153,192,5,22,40,2,20,16,5,38,0,8,169,0,4
12013 DATA72,192,0,80,0,0,96,0,0,96,0,0,96,0
12015 FORI=0TO62:READQ:POKE51008+I,Q:NEXT
12016 DATA3,252,0,2,168,0,3,92,0,3,92,0,3,92,0,3,92,0,15,255,0,15,255,0,15,255
12017 DATA0,15,255,208,15,255,208,15,252,0,14,168,0,7,252,0,7,252,0,3,252,0,3
12018 DATA252,0,2,138,0,2,138,0,0,163,128,0,0,0
12020 FORI=0TO62:READQ:POKE51072+I,Q:NEXT
12021 DATA0,0,0,127,251,254,127,251,254,127,249,254,0,0,0,127,63,60,127
12022 DATA127,190,127,127,190,62,127,190,0,0,0,127,231,254,127,239,254,127,239
12023 DATA254,127,207,252,0,0,0,57,255,158,125,255,222,125,255,222,125,255,220
12024 DATA0,0,0,255,255,255
12026 FORI=0TO62:READQ:POKE51136+I,Q:NEXT
12027 DATA95,255,250,95,255,250,80,0,10,80,0,10,88,0,26,88,0,26,92,0,58,92,0,58
12028 DATA94,0,122,94,0,122,95,0,250,95,0,250,95,129,250,95,126,250,94,255,122
12029 DATA93,255,186,91,255,218,87,255,234,79,255,242,127,255,254,0,0,0
12031 FORI=0TO62:READQ:POKE51200+I,Q:NEXT
12032 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,31,0,0,14,0,0,14,0,0,27,0,0,42,128,0
12033 DATA113,192,0,106,192,0,59,128,0,21,0,0,14,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
12034 DATA0,0,0,0
12036 FORI=0TO62:READQ:POKE51264+I,Q:NEXT
12038 DATA0,0,0,0,0,0,0,0,0,1,85,128,2,170,64,2,170,0,2,175,0,2,173,0,2,174,192
12039 DATA2,175,192,2,175,0,3,253,0,3,255,0,0,255,0,0,242,0,0,242,0,0,242,0,3
12040 DATA252,0,3,252,0,0,0,0,0,0,0
12042 FORI=0TO62:READQ:POKE51328+I,Q:NEXT
12043 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0,16,6,0,30,57,120,31,192,112,16,6
12044 DATA12,8,121,194,3,128,57,28,120,5,33,135,130,24,112,28,7,14,98,0,225,140
12045 DATA0,30,48,0,1,192,0,0,0,0,0,0
12047 FORI=0TO62:READQ:POKE51392+I,Q:NEXT
12048 DATA0,0,0,15,255,240,10,0,80,10,0,80,10,0,80,19,255,200,20,0,40,20,0,40
12049 DATA20,0,40,39,255,228,40,0,20,40,0,20,40,0,20,79,255,242,80,0,10,80,0,10
12050 DATA80,0,10,159,255,249,160,0,5,160,0,5,255,255,255
12052 FORI=0TO62:READQ:POKE51456+I,Q:NEXT
12053 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,56,0,0,76,0,0,134,0,0,18,64,0,47,160,0,110
12054 DATA160,0,191,64,0,156,64,0,56,0,0,68,0,1,132,0,2,8,0,5,20,0,0,0,0,0,0,0
12055 DATA0,0,0,0,0,0
12057 FORI=0TO62:READQ:POKE51520+I,Q:NEXT
12058 DATA16,0,0,21,0,0,31,64,0,31,80,0,31,213,0,31,254,64,31,255,64,31,255,64
12059 DATA31,255,208,31,255,244,21,85,84,7,255,244,1,255,244,0,127,244,0,23,244
12060 DATA0,5,244,0,1,244,0,0,116,0,0,20,0,0,4,0,0,0
12062 FORI=0TO62:READQ:POKE51584+I,Q:NEXT
12063 DATA0,0,16,0,0,80,0,1,240,0,7,208,0,7,208,0,95,208,1,255,208,5,255,208
12064 DATA31,255,208,31,255,208,21,85,80,31,255,64,31,253,0,23,212,0,31,208,0
12065 DATA31,64,0,29,0,0,20,0,0,16,0,0,0,0,0,0,0,0
12067 FORI=0TO62:READQ:POKE51648+I,Q:NEXT
12068 DATA0,0,0,0,0,0,0,0,0,0,0,0,3,255,192,2,0,64,2,239,64,2,239,64,2,15,64,2
12069 DATA240,64,2,247,64,2,247,64,2,7,64,2,224,64,2,239,64,2,239,64,2,0,64,2
12070 DATA247,64,2,247,64,2,0,64,3,255,192
12072 FORI=0TO62:READQ:POKE51712+I,Q:NEXT
12073 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0,55,0,0,59,0,0
12074 DATA213,192,0,191,128,0,204,192,0,191,128,0,255,192,0,183,128,0,255,192,0
12075 DATA55,0,0,55,0,0,55,0
12077 FORI=0TO62:READQ:POKE51776+I,Q:NEXT
12078 DATA0,0,0,0,56,0,0,124,0,0,84,0,0,124,0,0,40,0,0,56,0,1,255,0,2,214,128,2
12079 DATA238,128,2,214,128,3,57,128,0,254,0,0,254,0,0,124,0,0,108,0,0,108,0,0
12080 DATA108,0,0,108,0,0,108,0,0,230,0
12082 FORI=0TO62:READQ:POKE51840+I,Q:NEXT
12083 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,28,0,0,62,0,0
12084 DATA28,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
12086 FORI=0TO62:READQ:POKE51904+I,Q:NEXT
12087 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,225,128,0,30,3,128,0,48,112,1,204,15,14
12088 DATA6,0,192,0,0,51,193,192,12,14,56,0,48,6,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
12089 DATA0,0,0,0,0,0
12091 FORI=0TO62:READQ:POKE51968+I,Q:NEXT
12092 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,21,84,0,74,148,1,42,100,4,169,164,18,166
12093 DATA164,85,90,164,106,154,164,106,154,144,106,154,124,106,153,205,106,151
12094 DATA240,85,80,60,0,0,13,0,0,0,0,0,0,0,0,0,0,0,0
12096 FORI=0TO62:READQ:POKE52032+I,Q:NEXT
12097 DATA255,255,255,128,36,1,128,60,1,128,66,1,128,126,1,128,129,1,128,255,1
12098 DATA129,0,129,129,255,129,130,0,65,131,255,193,132,0,33,135,255,225,136
12099 DATA0,17,143,255,241,144,0,9,159,255,249,160,0,5,191,255,253,192,0,3,255
12100 DATA255,255
12102 FORI=0TO62:READQ:POKE52096+I,Q:NEXT
12103 DATA0,0,0,0,28,0,0,3,128,0,0,64,0,1,128,0,14,0,0,48,0,0,64,0,0,48,0,0,12
12104 DATA0,0,3,0,0,0,128,0,1,0,0,6,0,0,24,0,0,96,0,0,224,0,0,192,0,0,0,0,0,0
12105 DATA0,0,0,0
12107 FORI=0TO62:READQ:POKE52160+I,Q:NEXT
12108 DATA0,6,0,0,24,0,0,32,0,0,48,0,0,12,0,0,6,0,0,1,0,0,3,0,0,12,0,0,48,0,0,64
12109 DATA0,0,96,0,0,24,0,0,6,0,0,24,0,0,96,0,0,224,0,0,192,0,0,0,0,0,0,0,0,0,0
12111 FORI=0TO62:READQ:POKE52224+I,Q:NEXT
12112 DATA0,168,42,160,170,10,0,42,2,160,47,0,0,15,0,160,12,0,0,40,0,0,255,0,3
12113 DATA60,192,163,60,240,3,252,0,160,60,0,0,42,240,160,42,252,0,85,12,0,85
12114 DATA12,0,65,12,160,65,12,0,65,15,160,65,5,0,0,0
12116 FORI=0TO62:READQ:POKE52288+I,Q:NEXT
12117 DATA160,0,0,128,42,0,0,170,10,0,168,0,0,240,10,0,240,0,0,48,10,0,235,0,3
12118 DATA60,192,3,60,202,15,60,192,0,60,202,0,60,0,3,168,0,15,168,10,48,85,0
12119 DATA48,85,10,48,65,0,112,65,10,80,65,0,0,0,0
12121 FORI=0TO62:READQ:POKE52352+I,Q:NEXT
12122 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
12123 DATA0,0,63,255,252,127,255,254,255,255,255,255,255,255,0,0,0,0,0,0,0,0,0,0
12124 DATA0,0,0,0,0
12125 FORI=0TO62:READQ:POKE52416+I,Q:NEXT
12126 DATA0,0,0,3,192,0,7,192,0,7,128,0,7,128,0,2,128,0,7,0,0,59,128,0,47,192,0
12127 DATA7,224,0,14,0,0,13,240,0,14,248,0,7,124,0,7,190,0,5,111,0,2,139,128,2
12128 DATA130,192,7,129,64,31,255,252,31,255,252
12130 FORI=0TO62:READQ:POKE52480+I,Q:NEXT
12131 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,170,128,10,170,160
12132 DATA9,221,224,11,119,96,10,170,160,11,170,96,9,221,224,11,119,96,10,170
12133 DATA160,8,0,32,8,0,32,8,0,32,0,0,0
12139 FORI=0TO62:READQ:POKE52544+I,Q:NEXT
12140 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,0,1,214,0,2
12141 DATA33,0,4,76,128,5,144,128,4,139,0,4,100,0,7,24,0,3,128,0,1,128,0,0,0,0
12142 DATA0,0,0
12144 FORI=0TO62:READQ:POKE52608+I,Q:NEXT
12145 DATA0,0,0,0,0,0,0,120,0,0,48,0,0,48,0,0,120,0,0,180,0,1,50,0,2,121,0,4
12146 DATA120,128,8,252,64,8,212,64,9,182,64,5,122,128,3,119,0,3,183,0,3,203,0
12147 DATA1,222,0,0,220,0,0,120,0,0,0,0
12149 FORI=0TO62:READQ:POKE52672+I,Q:NEXT
12150 DATA0,0,0,0,0,0,0,255,192,0,255,192,0,255,192,1,128,96,1,128,96,1,128,96
12151 DATA3,0,48,3,0,48,3,0,48,6,0,24,6,0,24,6,0,24,12,0,12,12,0,12,12,0,12,15
12152 DATA255,252,13,154,236,10,205,148,15,255,252
12154 FORI=0TO62:READQ:POKE52736+I,Q:NEXT
12155 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,42,0,0,21,0,0,38,0,0,21,0,0,42,0,0,21
12156 DATA0,0,170,128,0,85,64,0,170,128,0,85,64,0,170,128,0,85,64,0,0,0,0,0,0,0
12157 DATA0,0,0,0,0
12159 FORI=0TO62:READQ:POKE52800+I,Q:NEXT
12160 DATA0,0,0,0,0,0,0,127,128,0,125,128,0,118,128,0,239,192,0,237,192,0,254
12161 DATA192,1,166,224,1,223,224,1,254,224,3,157,112,3,127,240,3,245,240,6,251
12162 DATA184,7,55,24,7,255,248,0,0,0,0,0,0,0,0,0,0,0,0
12164 FORI=0TO62:READQ:POKE52864+I,Q:NEXT
12165 DATA0,24,0,0,90,0,0,126,0,0,126,0,0,126,0,0,60,0,0,60,0,0,60,0,0,24,0,1
12166 DATA255,128,3,110,192,3,118,192,3,110,192,1,223,128,0,126,0,0,126,0,0,102
12167 DATA0,0,102,0,0,102,0,1,255,128,7,255,224
15000 RETURN
19000 IFAP>7THEN19100
19001 IFAP=7THEN19200
19002 IFAP=6THENGOSUB19035
19003 POKE53270,PEEK(53270)OR16:POKE53283,9:POKE53282,6
19004 PRINTTAB(10)"...................."
19006 PRINTTAB(10)"...................."
19008 PRINTTAB(10)"...................."
19010 PRINTTAB(10)".....[155][204][205][206][207][208][154]...[155][204][207][208][154]...."
19012 FORT=1TO10:PRINTTAB(10)"[155][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203]":NEXT
19031 GOSUB21050:RETURN
19035 POKEV+21,PEEK(V+21)OR128:POKE50175,27:POKEV+14,145:POKEV+15,90:POKEV+46,9
19036 POKEV+23,PEEK(V+23)OR128:POKEV+29,PEEK(V+29)OR128:RETURN
19100 IFAP=15ORAP=18ORAP=19ORAP=20ORAP=21ORAP=29ORAP=46ORAP=52THEN19110
19102 GOTO19999
19110 PRINTTAB(12)"[149]&%............^\"
19111 PRINTTAB(12)"..[209]%........[214]\.."
19112 PRINTTAB(12)"..,.[209]%....[214]\,..."
19113 PRINTTAB(12)"[201]#[210]_,.1//0,.[216][215]([202]"
19114 PRINTTAB(12)".,.,[220][211][221][195][195][255][217][202]-,.."
19115 PRINTTAB(12)".,.,..[223]  [161]..-,.."
19116 PRINTTAB(12)"//0/0/[223]  [161]/1/1//"
19117 PRINTTAB(12)"..,.[213]\[162][165][166][163]&[219].-.."
19118 PRINTTAB(12)"..[213][212].+....2,&[219].."
19120 PRINTTAB(12)"^[212].,+......[218].,&%"
19121 PRINTTAB(12)".,.+........2,.."
19122 PRINTTAB(12)".,+..........[218].."
19123 PRINTTAB(12)".+............2."
19124 PRINTTAB(12)"+..............2"
19129 IFAP=19THEN20015
19130 GOSUB21032:RETURN
19200 POKE53270,PEEK(53270)OR16:POKE53282,7:POKE53283,9
19204 PRINTTAB(10)"[149][173][173][173][173][170][173][173][173][173][170][173][173][173][173][170][173][173][173][173][173]"
19205 PRINTTAB(10)"[173][173][173][173][170][173][173][173][173][170][173][173][173][173][170][173][173][173][173][173]"
19206 PRINTTAB(10)"[169][169][169][169][168][169][169][169][169][168][169][169][169][169][168][169][169][169][169][169]"
19207 FORT=1TO3:PRINTTAB(10)"[173][173][171][173][173][173][173][171][173][173][173][173][171][173][173][173][173][171][173][173]":NEXT
19210 PRINTTAB(10)"[174][174][174][174][172][174][174][174]   [174][174][174][172][174][174][174][174][174]"
19211 PRINTTAB(10)"[173][173][173][173][170][173][173][173]   [173][173][173][170][173][173][173][173][173]"
19212 PRINTTAB(10)"[169][169][169][169][168][169][169][169]   [169][169][169][168][169][169][169][169][169]"
19213 FORT=1TO4:PRINTTAB(10)"[155][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203][203]":NEXT
19217 IFX6=1THENPOKEV+21,PEEK(V+21)OR128:POKE50175,31:POKEV+14,168:POKEV+15,108
19218 POKEV+46,9
19219 GOSUB21050
19220 RETURN
19999 POKE53270,PEEK(53270)AND239
20000 PRINTTAB(10)"[149]&%................^\"
20001 PRINTTAB(10)"..&%............^\.."
20002 PRINTTAB(10)"....1///1///1//0...."
20003 PRINTTAB(10)"[201]#!_-...-...-..,*)([202]"
20004 PRINTTAB(10)".,..1/1///1///10.,.."
20005 PRINTTAB(10)".,..-.-...-...-,.,.."
20006 PRINTTAB(10)"////1///1///1//0////"
20007 PRINTTAB(10)"....-...-...-..,...."
20008 PRINTTAB(10)"..^\1/1///1///10&%.."
20009 PRINTTAB(10)"^[212]..-.-...-...-,.,&%"
20010 PRINTTAB(10)".,.+////////////2,.."
20011 PRINTTAB(10)".,+..............[218].."
20012 PRINTTAB(10)".+................2."
20013 PRINTTAB(10)"+..................2[152]"
20014 IFAP=50THENPRINT"[149][181][181][181]"
20015 IFAP=19ORAP=32ORAP=55THEN20017:REM TREPPE
20016 GOTO20020
20017 POKEV+21,PEEK(V+21)OR128:POKE50175,35:POKEV+14,160:POKEV+15,145
20018 POKEV+29,PEEK(V+29)OR128:POKEV+46,0:IFAP=19THEN19130
20020 IFAP<>33ANDAP<>56ANDAP<>58THEN20900
20021 POKEV+21,PEEK(V+21)OR128:POKE50175,45:POKEV+14,159:POKEV+15,97
20022 POKEV+46,0:POKEV+23,PEEK(V+23)OR128:POKEV+29,PEEK(V+29)OR129
20023 PRINT"[149]......[157][157][157][157][157][157].+..2.[157][157][157][157][157][157]+....2[157][157][157][157][157][157]"
20024 PRINT"[145]......[157][157][157][157][157][157]......[157][157][157][157][157][157]"
20900 IFAP=10THEN21001
21000 IFPN(AP,1)=0THEN21005
21001 POKE49363,55:POKE49364,56:POKE49403,52:POKE49404,48:POKE49443,54:POKE49444,48
21002 POKE49483,68:POKE49484,44:POKE49523,70:POKE49524,57:POKE49563,53:POKE49564,44
21003 POKE49603,27:POKE49604,71:POKE49643,68:POKE49644,46:POKE49683,51
21005 IFPN(AP,2)=0THEN21010
21006 POKE49379,69:POKE49380,65:POKE49419,49:POKE49420,29:POKE49459,49:POKE49460,54
21007 POKE49499,45:POKE49500,68:POKE49539,64:POKE49540,62:POKE49579,45:POKE49580,61
21008 POKE49619,72:POKE49620,60:POKE49659,46:POKE49660,68:POKE49700,59
21010 IFPN(AP,3)=0THEN21030
21013 POKE49410,36:POKE49411,67:POKE49412,67:POKE49413,39:POKE49449,48:POKE49450,44
21014 POKE49451,32:POKE49452,32:POKE49453,45:POKE49454,49:POKE49489,44:POKE49490,44
21015 POKE49491,32:POKE49492,32:POKE49493,45:POKE49529,48:POKE49530,44:POKE49414,45
21016 POKE49531,100:POKE49532,103:POKE49533,45:POKE49534,49:POKE49569,44:POKE49570,43
21017 POKE49571,46:POKE49572,46:POKE49573,50:POKE49574,45:POKE49610,46:POKE49611,46
21018 POKE49612,46:POKE49613,46:POKE49409,44
21030 Z1=0:IFIN(10,1)=APORIN(23,1)=APORIN(26,1)=APORIN(28,1)=APTHEN21034
21031 IFIN(35,1)=APORIN(36,1)=APTHEN21034
21032 IFIN(13,1)=APORIN(17,1)=APORIN(34,1)=APORIN(42,1)=APTHENZ1=1:GOTO21036
21033 GOTO21050
21034 PRINT"    [157][157][157][157]    [157][157][157][157]    [157][157][157][157]    "
21035 POKEV+10,161:POKEV+11,97:POKEV+29,PEEK(V+29)OR32
21036 POKEV+21,PEEK(V+21)OR32:POKE50173,39:POKEV+44,11:POKEV+23,PEEK(V+23)OR32
21037 IFZ1=1THENPOKEV+10,161:POKEV+11,78:POKEV+29,PEEK(V+29)OR32
21038 IFZ1=1THENPRINT"    [157][157][157][157]    [157][157][157][157]";
21039 IFZ1=1THENPRINT"    [157][157][157][157]    [157][157][157][157]    "
21050 IFIN(1,1)<>APTHEN21060
21051 POKEV+21,PEEK(V+21)OR1:POKE50168,26:POKEV+0,200:POKEV+1,120:POKEV+39,11
21052 POKEV+23,PEEK(V+23)OR1:POKEV+29,PEEK(V+29)OR1
21060 IFIN(2,1)<>APTHEN21070
21061 POKEV+21,PEEK(V+21)OR128:POKE50175,29:POKEV+14,150:POKEV+15,110
21062 POKEV+46,0:POKEV+37,9:POKEV+38,1:POKEV+23,PEEK(V+23)OR128:POKEV+28,128
21063 POKEV+29,PEEK(V+29)OR128
21070 IFIN(3,1)<>APTHEN21080
21071 POKEV+21,PEEK(V+21)OR64:POKE50174,28:POKEV+12,160:POKEV+13,92
21072 POKEV+45,15:POKEV+29,PEEK(V+29)OR64:POKEV+23,PEEK(V+23)OR64
21080 IFIN(4,1)<>APTHEN21090
21081 POKEV+21,PEEK(V+21)OR128:POKE50175,30:POKEV+14,168:POKEV+15,108
21082 POKEV+46,9
21090 IFIN(5,1)<>APTHEN21100
21091 IFIN(14,1)<>-1ANDIN(14,1)<>35THEN21095
21092 POKEV+21,PEEK(V+21)OR128:POKE50175,53:POKEV+46,5:POKEV+14,195
21093 POKEV+15,130:POKEV+29,PEEK(V+29)OR128:GOTO21100
21095 X8=1:POKEV+21,PEEK(V+21)OR128:POKE50175,46:POKEV+46,3
21096 POKEV+14,190:POKEV+15,140:POKEV+29,128:GOTO164
21100 IFIN(6,1)<>APTHENGOTO21110
21101 POKEV+21,PEEK(V+21)OR8:POKE50171,33:POKEV+28,8:POKEV+6,141:POKEV+7,103
21102 POKEV+42,11:POKEV+37,0:POKEV+38,15
21110 IFIN(7,1)<>APTHEN21120
21115 PRINT"[149],[200][157][157]10[157][157]-,[157][157]-,[157][157]//"
21120 IFIN(9,1)<>APTHEN21130
21121 IFAP=19ORAP=51THEN21130
21122 POKEV+21,PEEK(V+21)OR2:POKE50169,34:POKEV+2,150:POKEV+3,140
21123 POKEV+29,PEEK(V+29)OR2:POKEV+40,0
21130 IFIN(11,1)<>APTHEN21140
21131 POKEV+21,PEEK(V+21)OR64:POKE50174,37:POKEV+12,235:POKEV+13,122
21132 POKEV+28,64:POKEV+37,0:POKEV+38,9:POKEV+23,PEEK(V+23)OR64
21140 IFIN(12,1)<>APTHEN21150
21141 POKEV+21,PEEK(V+21)OR64:POKE50174,38:POKEV+12,111:POKEV+13,119
21142 POKEV+28,64:POKEV+37,0:POKEV+38,9:POKEV+23,PEEK(V+23)OR64
21150 IFIN(14,1)<>APTHEN21160
21151 POKEV+21,PEEK(V+21)OR4:POKE50170,32:POKEV+4,170:POKEV+5,130
21152 POKEV+41,12:POKEV+29,PEEK(V+29)OR4:POKEV+23,PEEK(V+23)OR4
21160 IFIN(15,1)<>APTHEN21170
21161 POKEV+21,PEEK(V+21)OR128:POKE50175,36:POKEV+14,170:POKEV+15,143
21162 POKEV+46,0:POKEV+29,PEEK(V+29)OR128
21170 IFIN(16,1)<>APTHEN21180
21171 PRINT"";TAB(24)"[175]"
21180 IFIN(18,1)<>APANDIN(19,1)<>APTHEN21200:REM SPRUENGE I.D. DECKE
21181 POKEV+21,PEEK(V+21)OR128:POKE50175,43:POKEV+14,170:POKEV+15,56
21182 POKEV+46,0:POKEV+29,PEEK(V+29)OR128
21200 IFIN(20,1)<>APTHEN21210
21201 IFAP=31THENPOKE55599,8:GOTO21210
21202 POKEV+21,PEEK(V+21)OR8:POKE50171,42:POKEV+6,180:POKEV+7,150:POKEV+42,8
21210 IFIN(21,1)<>APTHEN21220
21211 POKEV+21,PEEK(V+21)OR128:IFIN(46,3)=0THENPOKEV+14,150:POKEV+15,121:GOTO21213
21212 POKEV+14,155:POKEV+15,115
21213 POKE50175,44:POKEV+46,9:POKEV+37,0:POKEV+38,1:POKEV+23,PEEK(V+23)OR128
21214 POKEV+29,PEEK(V+29)OR128:POKE49209,50:POKE49212,50:POKE49250,47:POKEV+28,128
21215 POKE49251,47:POKE49252,47:POKE49210,45
21220 IFIN(22,1)<>APTHEN21230
21221 POKEV+21,PEEK(V+21)OR128:POKE50175,41
21222 POKEV+14,190:POKEV+15,105:POKEV+45,14:POKEV+46,7
21223 POKEV+23,PEEK(V+23)OR128:POKEV+29,PEEK(V+29)OR128
21230 IFIN(24,1)<>APTHEN21240
21231 PRINT"[151]1/1///10[157][157][157][157][157][157][157][157]-.-...-,[157][157][157][157][157][157][157][157]"
21232 PRINT"[145][149][178][185][185][185][185][185][185][177]"
21240 IFIN(25,1)<>APTHEN21250
21241 POKEV+21,PEEK(V+21)OR192:POKE50174,48:POKE50175,49:POKEV+45,7:POKEV+46,7:POKEV+12,138
21242 POKEV+37,0:POKEV+38,12:POKEV+13,98:POKEV+15,98:POKEV+28,192:POKEV+23,PEEK(V+23)OR192
21243 IFY2=1THENPOKEV+12,135:POKEV+14,208:POKEV+29,32:POKE50173,31:POKEV+44,9:GOTO21247
21244 PRINT"[151]............[157][157][157][157][157][157][157][157][157][157][157][157]............":POKEV+14,186
21245 PRINT"............[157][157][157][157][157][157][157][157][157][157][157][157]..........."
21246 POKEV+29,PEEK(V+29)OR192:PRINT"............":GOTO21250
21247 PRINT"[151]...      ...[157][157][157][157][157][157][157][157][157][157][157][157]...      ..."
21248 PRINT"...      ...[157][157][157][157][157][157][157][157][157][157][157][157]...      ..."
21249 PRINT"...      ..."
21250 IFIN(27,1)<>APTHEN21260
21251 POKEV+21,PEEK(V+21)OR128:POKE50175,51:POKEV+46,12:POKEV+14,200
21252 POKEV+15,120:POKEV+23,PEEK(V+23)OR128:POKEV+29,PEEK(V+29)OR128
21260 IFIN(29,1)<>APTHEN21270
21261 POKEV+21,PEEK(V+21)OR192:POKE50174,52:POKE50175,54
21262 POKEV+12,121:POKEV+13,105:POKEV+14,210:POKEV+15,105:POKEV+28,64
21264 POKEV+45,8:POKEV+46,15:POKEV+37,11:POKEV+38,7
21265 POKEV+23,PEEK(V+23)OR192:POKEV+29,PEEK(V+29)OR64
21270 IFIN(30,1)<>APTHEN21280
21272 POKEV+21,PEEK(V+21)OR24:POKE50171,50:POKE50172,50:POKEV+6,142:POKEV+7,140
21273 POKEV+8,172:POKEV+9,140:POKEV+42,8:POKEV+43,8:POKEV+29,PEEK(V+29)OR24
21280 IFIN(33,1)<>APTHEN21290
21281 PRINT"[149]2-....,+[157][157][157][157][157][157][157]//////"
21290 IFIN(37,1)<>APTHEN21300
21291 POKEV+21,PEEK(V+21)OR128:POKE50175,58:POKEV+46,12:POKEV+14,138
21292 POKEV+15,105:POKEV+23,PEEK(V+23)OR128:POKEV+29,PEEK(V+29)OR128
21300 IFIN(38,1)<>APTHEN21310
21301 POKEV+21,PEEK(V+21)OR208:POKEV+28,64:POKE50175,55:POKE50172,57
21302 POKE50174,56:POKEV+12,160:POKEV+13,125:POKEV+14,160:POKEV+15,125:POKEV+46,12
21303 POKEV+9,125:POKEV+45,9:POKEV+37,0
21304 POKEV+43,12:POKEV+23,208:POKEV+29,PEEK(V+29)OR208
21305 POKEV+8,160:IFIN(45,1)=-1ORY3=1THENPOKEV+8,180
21307 PRINT"  [157][157]  [157][157]  [157][157][157]    "
21310 IFIN(39,1)<>APTHEN21320
21311 POKEV+21,PEEK(V+21)OR128:POKE50175,30:POKEV+46,9:POKEV+14,172
21312 POKEV+15,98:POKEV+23,PEEK(V+23)OR128
21314 PRINT"[144]1..0[157][157][157][157]-..,[157][157][157][157]-..,"
21315 PRINT"-..,[157][157][157][157]-..,"
21318 PRINT"[149]+1////02"
21320 IFIN(40,1)<>APTHEN21330
21321 POKEV+21,PEEK(V+21)OR128:POKE50175,52:POKEV+28,128:POKEV+46,8:POKEV+37,11
21322 POKEV+38,7:POKEV+14,160:POKEV+15,110:POKEV+23,PEEK(V+23)OR128
21323 POKEV+29,PEEK(V+29)OR128
21330 IFIN(44,1)<>APTHEN21340
21331 PRINT"[149][176]"
21340 IFIN(45,1)<>APTHEN21350
21341 POKEV+21,PEEK(V+21)OR32:POKEV+28,PEEK(V+28)OR32:POKEV+44,14:POKEV+37,0
21342 POKEV+38,7:POKEV+29,PEEK(V+29)OR32:POKEV+10,160:POKEV+11,122:POKE50173,40
21350 IFIN(46,1)<>APTHEN21370:REM GASMASKE
21360 PRINT"[149][180]"
21370 IFIN(41,1)<>APTHEN21500
21372 IFAP=57THEN21500
21375 PRINT"[149][182]"
21500 RETURN
30000 POKEV+21,0:PRINT"[147]SIE TRAGEN BEI SICH"
30010 FORI=1TO46
30020 IFIN(I,1)=-1THENPRINT""IT$(I)
30025 NEXT
30026 PRINT"SPACE DRUECKEN[146]"
30030 GETA$:IFA$<>" "THEN30030
30040 IFA$=" "THENGOTO160
34000 POKEV+21,0:PRINTCHR$(14),"[147]":INPUT"[198]ILENAME";E$
34005 OPEN 1,8,15,"S:"+E$:CLOSE1
34010 OPEN2,8,2,E$+",W"
34020 FORI=1TO58
34030 PRINT#2,PN(I,1):PRINT#2,PN(I,2):PRINT#2,PN(I,3):PRINT#2,PN(I,4)
34035 PRINT#2,PN(I,5):PRINT#2,PN(I,6):NEXT
34040 FORI=1TO46
34050 PRINT#2,IN(I,1):PRINT#2,IN(I,2):PRINT#2,IN(I,3):NEXT
34060 PRINT#2,AP:PRINT#2,X1:PRINT#2,X2:PRINT#2,X4:PRINT#2,X5:PRINT#2,X6
34070 PRINT#2,X9:PRINT#2,Y1:PRINT#2,Y2:PRINT#2,Y3:PRINT#2,Y4:PRINT#2,GE
34080 CLOSE2:GOTO50300
35000 PRINT"[147]":INPUT"[198]ILENAME";E$:KK=1
35005 OPEN2,8,2,E$
35010 FORI=1TO58
35020 INPUT#2,PN(I,1),PN(I,2),PN(I,3),PN(I,4),PN(I,5),PN(I,6):NEXT
35030 FORI=1TO46
35040 INPUT#2,IN(I,1),IN(I,2),IN(I,3):NEXT
35050 INPUT#2,AP,X1,X2,X4,X5,X6,X9,Y1,Y2,Y3,Y4,GE
35060 CLOSE2:RETURN
39900 DATAGEHE,ZERSTOERE,OEFFNE,KLOPFE,FRAGE,HACKE,TOETE,KRIECHE,WERFE,SCHIEBE
39910 DATADREHE,KLETTERE,NIMM,VERLIERE,ZIEHE,LIST,SAVE,STOP
39920 DATASPITZHACKE,BEDUINE,STRAUCH,ZUGEMAUERTER EINGANG,SCHLANGE,STATUE,HEBEL
39925 DATATUER NACH WESTEN,SEIL,TUER NACH NORDEN,DURCHGANG,DURCHGANG
39930 DATATUER NACH NORDEN,TONKRUG MIT ESSEN,SKORPION,PFEIL,TUER NACH NORDEN
39935 DATABESCHAEDIGTE DECKE,SPRUENGE IN DER DECKE,DIAMANT,TOTER GRABRAEUBER
39940 DATASTATUE,TUER NACH NORDEN,LOCH,RELIEF,TUER NACH NORDEN,HORUS
39945 DATATUER NACH NORDEN,SCHAETZE,HOLZBALKEN,TUER NACH WESTEN,TUER
39950 DATAOEFFNUNG IN DER DECKE,TUER NACH NORDEN,TUER NACH NORDEN
39955 DATATUER NACH NORDEN,OSIRISSTATUE,SARKOPHAG,ZUGEMAUERTER AUSGANG
39960 DATAHOLZSCHREIN,AMULETT,TUER NACH NORDEN,TUER NACH SUEDEN,SCHLUESSEL
39970 DATATOTENMASKE,GASMASKE,GIFTIGE GASE,FALLTUER,SCHRITTE,SONNENAUFGANG
39975 DATAGEHEIMGANG,AUGE,WAND,TREPPE
39985 DATA160,0,162,0,142,32,208,142,33,208,232,234,224,16,208,244,200,192,255
39990 DATA208,237,169,0,141,32,208,141,33,208,96
40000 DATA3,4,2,0,0,0,2,2,2,1,0,0,3,1,3,0,0,0,1,0,5,0,0,0,0,0,0,4,0,0
40001 DATA5,0,7,0,0,0,0,0,0,6,0,0,9,17,15,0,0,0,10,8,0,0,0,0,0,9,0,0,0,0
40002 DATA0,10,12,0,0,0,0,13,0,11,0,0,12,0,0,0,0,0,0,0,20,0,0,0,0,0,0,8,0,0
40003 DATA0,0,0,15,0,0,8,0,18,0,0,0,0,0,19,17,0,0,0,0,0,18,0,58,0,0,21,14,0,0
40004 DATA0,0,0,20,0,0,27,23,0,21,0,0,22,24,0,26,0,0,23,0,0,0,0,0,26,0,24,0,0,0
40005 DATA0,25,23,0,0,0
40006 DATA0,22,0,28,0,0,31,0,27,29,0,0,0,0,28,0,0,0,0,0,0,0,0,0,0,28,0,30,0,0
40007 DATA0,0,0,31,0,33,34,38,0,36,32,0,0,33,0,35,0,0,55,36,34,0,0,0,35,37,33,0
40008 DATA0,0,36,41,0,0,0,0,33,0,0,0,0,0,0,40,46,0,0,0,39,0,0,0,0,0,37,42,0,0,0
40009 DATA0,41,0,0,0,0,0,0,44,48,0,0,0,43,50,49,0,0,0,49,0,0,0,0,0,0,0,51,39
40010 DATA0,0,0,0,0,40,0,0,0,49,0,43,0,0,48,45,0,44,0,0,44,0,0,38,0,0,0,0,0,46,0
40011 DATA0,0,0,0,47,0,0,0,0,0,52,0,0,0,0,0,51,0,0,0,35,0,0,0,56,0,57,0,0,55,0
40012 DATA56,0,0,0,0,0,0,0,0,0,19,0
40025 DATA4,1,1,5,0,1,7,0,1
40027 DATA7,0,0,35,0,1,10,1,1
40029 DATA10,0,0,10,0,1,12,1,1
40030 DATA13,0,1,0,0,0
40031 DATA14,0,1,15,0,1,16,1,1,16,0,0
40032 DATA21,0,0
40033 DATA21,0,1,23,0,1
40034 DATA24,0,1,25,1,1
40035 DATA27,1,1,31,0,1,31,0,1
40036 DATA37,0,1
40037 DATA40,0,1,42,0,1,42,0,1
40038 DATA38,0,1,47,0,0,48
40039 DATA1,1,50,0,1,50,0,0
40040 DATA51,0,1,52,0,1,0,0,0
40041 DATA47,0,1,52,0,1,53,0,1
40043 DATA54,0,1,57,0,1,0,1,1
40044 DATA19,0,1,25,0,1,58,1,1,53,1,0,27,1,0
45000 POKE53270,PEEK(53270)OR16:POKE53283,9:POKE53282,7
45005 POKE53280,0:POKE53281,9
45010 PRINT"[147][151]    P H A R A O S   G R A V E"
45020 PRINT"           A D V E N T U R E             [144]"
45030 PRINT"                   ..
45031 [153]"                  .//.
45032 PRINT"                 .////.
45033 [153]"                .//////.
45034 PRINT"               .////////.
45035 [153]"              .//////////.
45036 PRINT"             .////////////.
45037 [153]"            .//////////////.
45038 PRINT"           .////////////////.
45039 [153]"          .//////////////////.
45040 PRINT"         .////////////////////.
45041 [153]"        .//////////////////////.
45050 PRINT"[151]                   BY                   "
45060 PRINT"            WOLFGANG RAUSCH            "
45100 GOSUB12000:GOSUB30
45110 PRINT"[147]",CHR$(14):POKE53270,PEEK(53270)AND239
45112 PRINT"[206] : [206]EUES [211]PIEL BEGINNEN"
45113 PRINT"[193] : [193]LTES [211]PIEL FORTSETZEN"
45114 GETX$:IFX$="N"THENDA=1:GOTO45120
45116 IFX$="A"THENGOSUB35000:GOSUB60:GOTO45120
45118 IFX$<>"A"ANDX$<>"N"THEN45114
45120 PRINT"[147][158][218]IEL DES [211]PIELS IST ES EINE [208]YRAMIDE"
45125 PRINT"ZU ERFORSCHEN UND DIE WERTVOLLE"
45127 PRINT"[212]OTENMASKE DES [208]HARAOS ZU FINDEN."
45130 PRINT"[129][198]OLGENDE [214]ERBEN VERSTEHT DER [195]OMPUTER:"
45132 PRINT"GEHE,NIMM,VERLIERE,OEFFNE,TOETE"
45134 PRINT"ZERSTOERE,KLOPFE,FRAGE,WERFE,DREHE"
45136 PRINT"HACKE,KRIECHE,WERFE,SCHIEBE,KLETTERE"
45137 PRINT"LIST,SAVE,STOP
45140 [153]"STOP(null)ACH JEDEM EINGEGEBENEN (null)ORT MUSS"
45142 [153]"'(null)VAL(null)(null)(null)(null)' GEDRUECKT WERDEN."
45144 [153]"ATNLLE (null)OMEN KOENNEN AUF 5,ALLE (null)ERBEN"
45146 [153]"AUF 4 PEEKUCHSTABEN ABGEKUERZT WERDEN."
45148 [153]"PEEKEI (null)ICHTUNGSANGABEN GENUEGT EIN "
45150 [153]"PEEKUCHSTABE.
45152 PRINT"Z.[194].:[199][197][200][197] '[210][197][212][213][210][206]'     [206] '[210][197][212][213][210][206]'"
45154 PRINT"[204][201][211][212] ZEIGT ALLE [199]EGENSTAENDE, DIE"
45155 PRINT"MAN BEI SICH TRAEGT (MAXIMAL 3)."
45157 PRINT"[211][193][214][197] SPEICHERT DEN [211]PIELSTAND AUF"
45158 PRINT"[203]ASSETTE AB."
45160 IFDA=1THENGOSUB60
45170 PRINT"'[211][208][193][195][197]' DRUECKEN[146]"
47000 GETX$:IFX$<>" "THEN47000
47010 IFX$=" "THENPRINTCHR$(142),"[147]"
47020 IFKK=1THEN155
47025 GOTO150
49000 GOSUB5600:PRINT"[147]SIE SIND AUSSERHALB":GOSUB5800
49002 IFIN(45,1)<>-1THEN49050
49005 PRINTCHR$(14),"[147]   [211]IE HABEN ES GESCHAFFT DIE GOLDENE"
49010 PRINT"   [212]OTENMASKE DES [208]HARAOS ZU FINDEN"
49020 PRINT"   UND HOECHSTE [197]HRUNGEN SIND IHNEN   "
49030 PRINT"   GEWISS,"
49040 PRINT"   DOCH DER [198]LUCH DES [208]HARAOS WIRD"
49045 PRINT"   SIE FUER IMMER VERFOLGEN.":GOTO50300
49050 PRINT"[147]   [211]IE HABEN ES ZWAR GESCHAFFT, DIE"
49055 PRINT"   [208]YRAMIDE LEBEND ZU VERLASSEN, DOCH"
49060 PRINT"   SIE HABEN DIE GOLDENE [212]OTENMASKE"
49065 PRINT"   NICHT GEFUNDEN.":GOTO50300
50100 REM
50105 POKEV+14,190:POKEV+15,130
50110 FORF2=135TO155STEP2:POKE50175,46:FORT=1TO100:NEXT:POKEV+15,F2
50120 POKE50175,47:FORT=1TO100:NEXT:NEXT
50121 FORT=1TO30:SYS866:NEXT:GOTO50210
50190 PRINTCHR$(14)"[147]   SIE HABEN SICH HOFFNUNGSLOS VERIRRT":GOTO50300
50200 PRINTCHR$(14)"[147]   SIE HABEN DEN HALT VERLOREN UND SIND    HINUNTERGEFALLEN"
50201 GOTO50300
50202 PRINTCHR$(14)"[147]   SIE SIND IN EINE FALLGRUBE GESTUERZT":GOSUB5600:GOTO50300
50203 GOSUB5600:PRINTCHR$(14)"[147]   DIE "IT$(54)" IST EINGESTUERZT":GOTO50300
50204 GOSUB5600:PRINTCHR$(14)"[147]   DIE DECKE IST HERUNTERGEBROCHEN":GOTO50300
50206 PRINTCHR$(14)"[147]   EIN HERABFALLENDER STEIN HAT SIE ER     SCHLAGEN":GOTO50300
50207 PRINTCHR$(14)"[147]   "IT$(47)" HABEN SIE GETOETET":GOTO50300
50208 FORT=1TO20:SYS866:NEXT:GOSUB5600:PRINT"[147]   SIE WURDEN VON HINTEN GEPACKT UND "
50209 PRINT"   ERWUERGT":GOTO50300
50210 GOSUB5600:PRINTCHR$(14)"[147]   DIE "IT$(5)" HAT SIE GEBISSEN":GOTO50300
50211 GOSUB5600:PRINTCHR$(14)"[147]   EINE "IT$(48)" HAT SICH UNTER IHNEN"
50212 PRINT"   GEOEFFNET":GOTO50300
50213 GOSUB5600:PRINTCHR$(14)"[147]   SIE HABEN EINEN MECHANISMUS "
50214 PRINT"   AUSGELOEST ,WODURCH EIN "IT$(16)" AUS "
50215 PRINT"   DER WAND GESCHOSSEN WURDE":GOTO50300
50300 PRINTCHR$(14)"[206]OCH EIN [214]ERSUCH?[160](J/N)"
50310 GETA$:IFA$<>"J"ANDA$<>"N"THEN50310
50320 IFA$="J"THENCLR:PRINTCHR$(142)"[147]":RUN
50330 SYS64738
50700 FORX=1TO20:POKEV+8,160+X:FORT=1TO200:NEXT:NEXT:IN(45,3)=1:GOSUB5900:GOTO164
50720 TI$="000000"
50725 PRINTA4$"KOMMANDO ?"
50730 POKE631,0:POKE198,0
50731 U=PEEK(631)
50740 IFTI$="000002"THEN50770
50750 IFU=71THENPOKE631,U:GOTO250
50760 IFU>0ANDU<>71THEN50770
50765 GOTO50731
50770 FORX=1TO10:POKEV+13,125-X:FORT=1TO300:NEXT:NEXT:FORT=1TO20:SYS866:NEXT
50780 GOSUB5600:PRINTCHR$(14)"[147]":GOTO50300
50800 TI$="000000":POKE631,0
50805 PRINTA4$"KOMMANDO ?"
50806 POKE631,0:POKE198,0
50807 U=PEEK(631)
50808 IFU=71ORU=84THENPOKE631,U:GOTO250
50809 IFU>0ANDU<>71ANDU<>84THEN50820
50810 IFTI$="000002"THEN50820
50815 GOTO50807
50820 FORX=1TO10:POKEV+15,140+X:POKEV+14,170-X/2:FORT=1TO100:NEXT:NEXT
50825 FORT=1TO10:SYS866:NEXT:GOSUB5600
50830 PRINTCHR$(14)"[147]   DER "IT$(15)" HAT SIE GESTOCHEN":GOTO50300
52000 PRINTA3$"SIE HOEREN "IT$(49)" HINTER SICH":C=C+1
52004 FORC1=1TO4
52005 FORLA=5TO0STEP-.4
52010 POKESI+24,LA:POKESI+5,8*16+10:POKESI+6,15*16:POKESI+1,15:POKESI+0,0
52020 POKESI+4,129:NEXT
52025 POKESI+4,0:POKESI+5,0
52030 FORT=1TO800:NEXT:NEXT:RETURN